home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
t3_1
/
xlib.lha
/
xlib
/
xkeyboardcontrol.t
< prev
next >
Wrap
Text File
|
1990-06-01
|
2KB
|
34 lines
(herald xkeyboardcontrol (env tsys (xlib interface)))
(DEFINE (MAKE-XKEYBOARDCONTROL)
(CONS 'XKEYBOARDCONTROLP (MAKE-BYTEV 32)))
(DEFINE (XKEYBOARDCONTROL-KEY_CLICK_PERCENT X)
(MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 0))
(DEFINE (XKEYBOARDCONTROL-KEY_CLICK_PERCENT! X Y)
(SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 0 Y))
(DEFINE (XKEYBOARDCONTROL-BELL_PERCENT X)
(MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 4))
(DEFINE (XKEYBOARDCONTROL-BELL_PERCENT! X Y)
(SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 4 Y))
(DEFINE (XKEYBOARDCONTROL-BELL_PITCH X)
(MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 8))
(DEFINE (XKEYBOARDCONTROL-BELL_PITCH! X Y)
(SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 8 Y))
(DEFINE (XKEYBOARDCONTROL-BELL_DURATION X)
(MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 12))
(DEFINE (XKEYBOARDCONTROL-BELL_DURATION! X Y)
(SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 12 Y))
(DEFINE (XKEYBOARDCONTROL-LED X) (MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 16))
(DEFINE (XKEYBOARDCONTROL-LED! X Y)
(SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 16 Y))
(DEFINE (XKEYBOARDCONTROL-LED_MODE X)
(MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 20))
(DEFINE (XKEYBOARDCONTROL-LED_MODE! X Y)
(SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 20 Y))
(DEFINE (XKEYBOARDCONTROL-KEY X) (MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 24))
(DEFINE (XKEYBOARDCONTROL-KEY! X Y)
(SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 24 Y))
(DEFINE (XKEYBOARDCONTROL-AUTO_REPEAT_MODE X)
(MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 28))
(DEFINE (XKEYBOARDCONTROL-AUTO_REPEAT_MODE! X Y)
(SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 28 Y))